home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
CRS
/
crs25.d81
/
salmaker.prg
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2009-10-10
|
3KB
|
32 lines
100 PRINT CHR$(147):PRINT " SINGALONG SONG LIBRARY MAKER"
110 PRINT " BY CRAIG CHAMBERLAIN 6/25/86":PRINT:SP=783
130 RE=3262:WR=3307:BA=3377:BE=4435:MA=PEEK(49)+256*PEEK(50)+500
300 PRINT " THIS PROGRAM WRITES TO DISK THE
305 [153] " LIBRARY FILE FOR ONE SINGALONG SONG":[153]
310 F$[178]"":[133] " NAME OF SINGALONG SONG";F$:[139] F$[178]"" [176] [195](F$)[177]12 [137] 310
320 [153]:[153] " READING " F$ ".MUS"
325 [159] 2,8,15,"I0:":[132]2,A,B$,C,D:[139] A [137] 710
330 [159] 1,8,2,F$[170]".MUS,R,P":[132]2,A,B$,C,D:[139] A [137] 710
340 [158] RE,MA:[139] [194](SP)[175]1 [137] 700
350 WA[178][194](251)[170]256[172][194](252):ML[178]WA[171]MA:[160] 1:[132]2,A,B$,C,D:[139] A [137] 710
360 [153] " READING " F$ ".WDS"
370 [159] 1,8,2,F$[170]".WDS,R,P":[132]2,A,B$,C,D:[139] A [137] 710
380 [158] RE,WA:[139] [194](SP)[175]1 [137] 700
390 EA[178][194](251)[170]256[172][194](252):WL[178]EA[171]WA:[160] 1:[132]2,A,B$,C,D:[139] A [137] 710
500 [153]:[153] " INSERT A DISK TO RECEIVE THE
505 PRINT " LIBRARY FILE AND PRESS ANY KEY":PRINT:POKE 198,0:WAIT 198,15:GET G$
520 PRINT " WRITING " F$ ".SAL"
525 PRINT#2,"S0:"+F$+".SAL":INPUT#2,A,B$,C,D:IF A>2 GOTO 710
530 OPEN 1,8,2,F$+".SAL,W,P":INPUT#2,A,B$,C,D:IF A GOTO 710
540 SYS WR,BA,BE:IF PEEK(SP)AND1 GOTO 700
550 SYS WR,WR,BA:IF PEEK(SP)AND1 GOTO 700
560 PRINT#1,CHR$(LEN(F$)) F$;
570 PRINT#1,CHR$(ML-256*INT(ML/256)) CHR$(ML/256);
575 SYS WR,MA,WA:IF PEEK(SP)AND1 GOTO 700
580 PRINT#1,CHR$(WL-256*INT(WL/256)) CHR$(WL/256);
585 SYS WR,WA,EA:IF PEEK(SP)AND1 GOTO 700
590 CLOSE 1:INPUT#2,A,B$,C,D:IF A GOTO 710
595 CLOSE 2:END
700 INPUT#2,A,B$,C,D
710 PRINT:PRINT " ERROR: " B$:CLOSE 1:CLOSE 2:END